この 付 譟は取 0 はず して 保存して 下さい。 
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■二の プログラムは 実 除に 動作した ものを、 
そのまま プリントアウトし、 縮小 掲載した も 
のです。 うま く 動作し ない 場合は タイプ ミス 
の 可能性が 非常に 大きいで すので 注意 して 入 
力して ください。 

■この プログラム 4 
ン トロール キーを} • 

押す) によ っ て 止めた とき、 文字 か •見えな くな 
って しまう 場合 か •あります。 これは 文字の 色 
と 背景 色が II じに なって いるた めです。 文字 
か* 見えない ままで かまい ま せんから、 『COLO 
— ~ ilj を ダイレクト モード 


R15,  5,  7〇 


誤り だけでなく、 変数の 型、 カッコの 数、 ユ 
ー ザー閱 数の 定義な どが 照 因 となる 二と あ 
•ります。 十分に チェックして ください 〇 
■Illegal  function  call の 場合、 エラー 行 だけ 
でな く、 その 行で 使用して いる 明 数 や 命令の 
パラメータ （変数） を 定義して いる 行 や、 デ 
ータの 誤りに 注意して チェック してく ださ 


今回 お届けす るのは、 T  V ゲームの 古典、 
『ブロック くずし j。 

APPLEII の  rLITTLE  BRICK  OUTj  をべ 一 
ス に、 MS  X お得 意の スプラ イト 檐 能を 使つ 
て、 スピーディーな ゲーム/) 壤 しめる ように 
してみ ました。 

もう じき _〇 雨の 休日は カラフルな _ 
で、 あのな つかしい ゲームを もう 一度’ 

•遊 ひ 方 _ 

RUNl  RETURN  It •スタート 》 ォーブ ニン 
グ 音楽と ともに タイ トル 画面が 表示され、 次 
に I 明 J X  5 段の ブロック が 画面 上部に 現われ 
る。 自動的に サーブされ るので、 カーソル キ 
一の 日日を 押して ラケットを 動かし、 飛ん 
できた ボールを 打ち返す。 ラケットを 画面の 
端に もってい くと、 壁を つき 抜けて 反対 個の 
端から ラケッ トが 出て く るので、 ピンチの 時 
はこの 手を 使おう。 

ポールが ブロ ッ クを つき 破つ て 反対側に 出 
，て 連続く ずれが 起こる が、 


:、 天井に 反射して 連 
-ッ トの 幅が 半分に な 


、ゲームが その 
、 ポール も 停止す る。 も 
：/ 卜も 止まる A、 ら インチキ 
:ぃの だ •もぅ i  MkroPl キ 
一を き 力、' はじまる。 

2)  ブロックの 段 数を 変えたい とき —— 

120 行の rT=5j で 定義して いる 数 
値が ブロ ックの g 缴に なつて いるので、 
この 値を 変える。 I 段から 14© まで、 
テクニックに 合わせて ど’ ぞ。 

3)  ポールを 増やしたい とき —— 

ポールは 5 個 あるが、 1 140 行の1 "B  L 
=  5j の 数値を 変えれば、 何個に でも 
できる。 ただし 画面には 2 ケタし か 表 
示で# ない のでよ ろしく。 

4)  ジ a イス ティ ツクで 遊びたい とき 一 
480 行の rA  =  STIGK  (0)j の カツ 
コの 中の 〇を丨 に 変える と、 ポート I 

嫌した ジ 3 イス テイ ツクが 使え 


5) 『 むずかし 一な 一j と 思わず 考え込ん 
でし まつ たと# — 

の rA=X-x  I  :, S= …… j の 
て  rA  =  x-X  I  :  S  = 


I 的 行の rA 
し j を 取 r 


0  PUT  SPRITE  1,(X1, 183), 


560  PUT  SPRITE  2,(X1+8*V,1 
570  IF  Y>27+T*8  THEN  390 
580  IF  Y>30  THEN  GOSUB  260s  IF  Q=19*T  THEN  600  ELSE  390 
590  GOTO  390 

600  PUT  SPRITE  0, (0,0), 0,0: CE=CE+1 : GOSUB  1000SLINE  (0,116)-(48, 124), 15, BF：PSET  < 
0,U6),15：PRINT  #1,USING*####H* ;CE+1 sQ=0：GOTO  320 
610  ' 

620  "  Game  Over 


640  IF  HS<SC  THEN  HS=SC  . . 

650  LINE  (0,8)-(46,15>,15,BF：PSET(0,9),15sPRINT  #1 .USING '######  |HS 
660  PSET  (74,100〉 ，0:COLOR  15:PRINT  Hl/TRY  AGAIN(Y/N)?'  •  •  ^  … 

670  H$=INKEY$:IF  INSTR( '  YyNn',H$)<2  THEN  670  ELSE  IF  H$=  Y  OR  H$=  y  THEN  COLO 
R  1,1 5: GOSUB  113 0: GOSUB  1000: GOSUB  1 140 :Q=0: GOTO  320 
680  COLOR  15, 4, 7: KEY  ON: CLOSE: END 
690  SOUND  7, 44： SOUND  8, 9: SOUND  1,4: SOUND  1 
700  BL=BL-1 


D  13,0: FOR  A=0  TO  200： NEXT  A： SOUND  8,16 


3  IF  BL<0  THEN  640  ELSE  320 

720  ' 

730  "  Screen  mode  &  Sprite  Patterns 
740  ' 

750  COLOR  1,15,1 

760  SCREEN  2,0 ,0:CLS:OPEN  'GRP:'  AS  #1 
770  A1 $=CHR$ ( &B00 111000) 

780  A2$=CHR$(&B 011101 00) 

790  A3$=CHR$(&B11111110) 

800  A4$=CHR$  <  &B1 1 1 1 10 10 ) 

810  A5$=CHR$(&B11111010) 

820  A6$=CHR$<&B11111010) 

830  A7$=CHR$ ( &B0 1 1 10 100 ) 

840  A8$=CHR$ ( &B00 1 〃  、 

850  A$=A1$+A2$+A3$ 

860  A1$=CHR$(&B111_ 

870  A2$=CHR$ (&B11111111) 

880  A3$=CHR$(&B11111111) 


ゲー ムオ u ン ピック _ 催 中/ 


890  M$=CHR$(&B11111111) 

900  A5$=CHR$ (&B11111111) 

910  A6$=CHR$<  &B 00000000 ) 

920  A7$=CHR$(&B 000000 00) 

930  A8$=CHR$( &B0 0000000  ) 

940  B$=A1$+A2$+A3$+A4$+A5$+A6$+A7$+A8$ 

950  GOSUB  1000:GOSUB  1140 
960  GOTO  290 
970  / 

980  Brick  Pattern  Display 
990  ' 

1000  LINE  (54, 191)-(208, 0),1,BF 
1010  FOR  A=0  TO  T-l 

1020  LINE  < 56 , 32+A*8 ) - ( 206 , 37+A*8 ) , 1+T-A , BF 

1030  NEXT  A 

1040  FOR  A=0  TO  T-2 

1050  LINE  < 56 , 38+A*8 ) - ( 206 , 39+A*8 ) , 1 , BF 
1060  NEXT  A 

1080  ；  High  Score  &  Score  Display 


1150  PSET  <1,1),0：PRINT  #1， _HISCORE ■: PRINT  #1,_  0 •: PRINT  #1, ' SCORE •: PRINT 

#1,"  0 •: PSET  (8,108),15：PRINT  #1 • 'SCENE •: PRINT  #1, '  l':PSET  (8,145),15: 

PRINT  *1 /LEFT •: PRINT  #1 , *  BALL"  : RETURN 
1160  KEY  OFF: SCREEN  1,0: COLOR  15,4,2 
1170  LOCATE  7,11 
1180  PRINT'MSX  フ "09 ク 

1190  PLAY ■ S0M10000T 1 10O5L8GL16GGG2L8G+GG+GL16GGG2 ' , " S0M6000T1 10O5L8EL16EEE2L8E+E 
E+EL16EEE2', 'S0M 6000111005 L8CL16CCC2L8C+CC+CL16CCC2' 

1200  IF  PLAY(0)  THEN  1200  ELSE  RETURN 


•主催： コナミ エ業 株式 会 fet/ コナ 
參 期間：  5 月 1 日〜 8 月 31 日 （当日 

法： ハイパーオリンピック 1、 2 に チャレンジして いただき 高 得点を 競って いただきます。 
籲応 募 方法： 各種 目の 最高記録^ または 1、 2 の 総合 得点が 写し出された テレビの 画面を 写真に 撮り 
事務局へ 郵送して いただきます。 （総合 部門に ついては、 1 または 2 だけの 終 合 得点 だけ 
では 失格と なります） 

•参加 費 格： 特に 問いません。 

籲 応募 先： X102 東京都 千代 田 区 九 段 南 2  丁目 3-14 靖国 九 段 南 ビル コナミ 株式会社 内 
パイパー オリンピック 大会 事務局 宛 

參応 募の 方は： 住所、 氏名、 年令、 職業、 電話番号、 性別、 御 使用 中の M  S  X 相雜 (お持ちの 方の み)、 身長、 
体重、 希望す る ソフトの タイトル、 を必 、ず 明記して 下さい。 

鲁 発表： バソコ ン各誌 10 月 号 誌上に て。 

* フェアプレー 賞 （1,00 略） について は 郵送を もって 発表 ■ 


HET3IT 


